home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
System Booster
/
System Booster.iso
/
Texteditors
/
XDME
/
test
< prev
next >
Wrap
Text File
|
1996-09-26
|
8KB
|
268 lines
print ($(*Texts*/#0/*Name*))
set i 0 256 (flag \$i 0 inc i)
flag 0 0 flag 1 1 ping 1 down
flag 2 0 down
set i 3 repeat 100 (flag \$i 0 inc i ) down
flag 4 1 flag 5 1 down
set gxx hallo title gxx$gxx down
setenv exx hallo title exx$exx down
settvar txx hallo title txx$txx down
setmacro tx 0 (smv mxx hallo title mxx\$mxx) tx down
set gxx hallo title $gxx pong 1
setmacro ha 1 ( inc ha ) set ha 0 999 (ha 1) title $ha
map c-x (qualifier x)
map xs-a (title XShiftA)
map a-a (spc shortlines on join spc shortlines off)
title $txtfontname down
title $txtfontsize down
title $menufontname down
title $menufontsize down
set xx (hahaha) title $xx down
insvar xx c=1 hoho title $xx down
remvar xx c=3 4 title $xx up
remvar xx w=1 4 title $xx
set xx (this is a bad test) remvar xx w=4 4 title $xx
menuoff
spc menufontname topaz.font
spc menufontsize 8
menuon
menuadd test test ...
set xx alpha 5 (pushvar xx) set xx beta purgevar xx popvar xx title $xx
setmacro xx 1 (title \$arg1) xx hallo
Deflist ls addnode ls head xx xx-in-ls down
loadgtbproject t unnamed.gui down
opengtbwindow t d down
connectgtbgadget t d a *Texts* down
connectgtbgadget t d b ls down
connectgtbgadget t d c ls down
dropgtbproject t
setgtbgadget t win st bubuhhh down
setgtbgadget t win nm 10 down
setgtbgadget t win sl 10 down
setgtbgadget t win sc 10 down
setgtbgadget t win pa 0 down
setgtbgadget t win in 10 down
setgtbgadget t win cy 1 down
setgtbgadget t win lv 0 down
setgtbgadget t win cb 1 down
setgtbgadget t win tx hallihallo down
Deflist hallo down
loadgtbproject fr Macros/f&r.gui down
connectgtbgadget fr cnt logs hallo down
opengtbwindow fr cnt 2 down
closegtbwindow fr cnt
set cnt 1 5 (AddNode hallo tail \$cnt (dummy) inc cnt)
AddNode hallo head hahaha (this is a test) down
AddNode hallo head hohoho (this is a test) up
RemNode hallo head
_Showlist hallo
_Showlist *RefPaths*
_Showlist *MenuStrips*
_Showlist *KeyTables*
_Showlist *GTBProjects*/t/win
#_ShowList *Texts*
rempath ()
connectgtbgadget fr cnt rpath *RefPaths*
opengtbwindow fr cnt
loadgtbproject fr Macros/f&r.gui
dropgtbproject fr
opengtbwindow fr Replace
setmacro fr-Replace-replace 1 (set _replace (\$arg1))
setmacro fr-Replace-find 1 (set _find (\$arg1))
setmacro fr-Replace-ok 0 (closegtbwindow fr Replace findr \$_find \$_replace)
setmacro fr-Replace-cancel 0 (closegtbwindow fr Replace set _find \$findstr set _replace \$repstr )
opengtbwindow fr fr
setmacro fr-fr-Replace 1 (set _replace \$arg1)
setmacro fr-fr-Find 1 (set _find \$arg1)
setmacro fr-fr-Direction 1 (set _dir \$arg1)
setmacro fr-fr-do 0 (closegtbwindow fr fr findstr \$_find repstr \$replace)
setmacro fr-fr-do_cancel 0 (closegtbwindow fr fr set _find \$findstr set _replace \$repstr)
setmacro fr-fr-do_find 0 (fr-fr-do ifelse \$_dir prev next)
setmacro fr-fr-do_replace 0 (fr-fr-do ifelse \$_dir prevr nextr)
setmacro fr-fr-do_repall 0 (fr-fr-do top repeat -1 nextr)
setgtbgadget fr fr Find $findstr
setgtbgadget fr fr Replace $repstr
spc norequest to
map a-a (title \$recentword)
menucheck al pha (title hallo)
menugetcheck al pha inter
menusetcheck al pha 1
menusubcheck ep si lon ( title hallo)
menugetscheck ep si lon inter
menusetscheck ep si lon 0
menugetcheck ep si^Slon inter
menusetcheck ep si^Slon 0
force tr (alibaba)
showlog
debug 1
toggle viewmode
flag viewmode toggle
SPC_viewmode = toggle
SPC_iconmode = toggle
debug 0
#test fuer simptr
5 (simptr 200 40 tomouse)
5 (simptr 200 200 tomouse)
5 (simptr 200 10 tomouse)
5 (simptr 650 60 tomouse)
5 (simptr 650 70 tomouse)
5 (simptr 1 80 tomouse)
# verschiedene Tests fuer Doubleclicked Buttons
map L-lmb (tomouse title EINS...)
map L-lm2 (scanf %s title ZWEI...)
map L-lm3 (ctags title DREI...)
map L-lm4 (title VIER...)
map L-mm2 (title FUENF?????????)
map L-lm2 (title ZWEI...)
map L-lm2 (ctags)
# do_if <- das kann fuer ctags genommen werden ...
addpath autodoc:39
#AddTail <- das kann fuer refs genommen werden ...
# verschiedene Tests fuer "R"epeat Qualifier
# einmal mit einem Threshold ...
unset remove
unset noremove
set trremove 6
setmacro delthresh 1 (ifelse \\\$noremove (dec noremove abort) (set noremove \$trremove eval \$arg1 delcond))
setmacro delcond 0 (ifelse ca (set remove ca) (set remove !ca))
map -del (delcond del)
map r-del (delthresh () while $\remove del ur-del)
map ur-del (u-del set noremove $trremove)
map u-del (set remove 0 set noremove 0)
map -bs (left -del)
map r-bs (delthresh left while $\remove (del left) right ur-del)
map ur-bs (ur-del)
map u-bs (u-del)
set remove 0
set noremove 0
#original:
#map -del (ifelse ca (set _remove ca) (set _remove !ca) del)
#map r-del (while $\_remove del u-del)
#map ur-del (u-del)
#map u-del (set _remove 0)
#map -bs (left -del)
#map r-bs (left while $\_remove (del left) right u-del)
#map ur-bs (u-del)
#map u-bs (u-del)
menuadd User SMake... (newwindow chfilename (*SCRATCH*) insfile (APIPE:script:mysmake ) modified off viewmode on)
# Request.c
reqfile (XDME Request File) (sp) $filename title $reqresult
reqnumber (XDME Number Request) (Please input a number) (OK|CANCEL) 42 0 256 title $reqresult
reqstring (XDME String Request) (Please input a string) (OK|CANCEL) zwoundvierzig title $reqresult
reqpalette (XDME Select Color) $tfpen title $reqresult
request (XDME Request) (Machen Sie eine Wahl) (OK|Naja|Cancel) title $reqresult
# cmdsh.c
title $cmdshell
SPC_cmdshellname = (KCON:0/0/640/100/XDME Command Shell)
SPC_cmdshellprompt = (xdme[%f]:)
SPC_errorsoncmdshell = toggle
closecmdshell
opencmdshell
menuadd User cmdshell opencmdshell
menuadd test test (newwindow reqload
test-test
settoggle 5
if g5 (resettoggle 5 unblock bstart) tomouse bend
force d (title \$5 settoggle 5 title \$5 resettoggle 5 title \$5 toggle 5 title \$5)
spc appicon toggle
spc appicondropaction (request (TAHAA) (Da bin ich mir zu schade für!) (0))
spc appiconclickaction (request (TAHAA) (Stör' jemand' anderen!) (0))
appicon = toggle
spc cmdshell to
spc shortlines to
bottom 5 (insline first 55 .) blocktype c
map -0x0c (title deadkey)
map sM-0x0e (title 0x0e)
map sM-0x1c (title 0x1c)
map sM-0x2c (title 0x2c)
map sM-0x3b (title 0x3b)
map sM-0x47 (title 0x47)
map sM-0x48 (title 0x48)
map sM-0x49 (title 0x49)
map sM-0x4b (title 0x4b)
map sM-0x60 (title 0x60) rem LSHIFT
map sM-0x61 (title 0x61)
map sM-0x62 (title 0x62)
map sM-0x63 (title 0x63)
map sM-0x64 (title 0x64)
map sM-0x65 (title 0x65)
map sM-0x66 (title 0x66)
map sM-0x67 (title 0x67)
map sM-0x68 (title 0x68)
map sM-0x69 (title 0x69)
map sM-0x6a (title 0x6a)
map sM-0x6b (title 0x6b)
map sM-0x6c (title 0x6c)
map sM-0x6d (title 0x6d)
map sM-0x6e (title 0x6e)
map sM-0x6f (title 0x6f)
downadd blocktype c map a-a (deline redisplay) 10 (first insline (....................)
map a-a (spc shortlines on reformat spc shortlines off)
s.kj sgfdlk wrpgi #üwfgg ewgrk öflsdj fdglökjs rgäje eglkj xgölekj relkj xyelkj lerkgj xöelkjgfx elkjgrx lkejr gxlkejrt xölk xlkj3er lk3x 3lktjxö935t xöj3 5txj 3.ltjcx .l3k4jt xc.lk3jt xc.lk3tj 5c.t3klkj 5xc.lktj53 .lkj4t .clt3kjc .tlkk53jct.lk3jc t.l3kj
ö4ijcx ö4jt gcxäo3 cx 3gxc-lj3 x-l4kjgc-3l4kjgc -lk4jg3xc -lk4jxc3-l4kj cx3-lj cx-lj35ojgc-o3jt5 gcx-3o5j c-o35z o--3ot x5§Ö%k c3Ö%Thk 3li4jtc -l3o5j c3ö-o5 x-öok5x-ozj hx-xo5özj -o6j h-3öo xc-lxoj3 5-hoc 5xc-o5-x -3j5ouc x3-o xc-3ocxj -3zhojcx 3-5zjxc